REM                                                                     Page 1

REM Program Name            2000TEMP.BAS

REM Description

REM This program controls the Model 2000 for resistance and temperature

REM measurements. The Model 2001TCSCAN card is used. Channel 1 is the

REM reference junction and channels 2 and 3 have K type thermocouples.

REM Channels 4 and 5 have 1k ohm resistors. In this routine the computer controls the

REM scanning. This application involves multiple functions during scanning.

REM The Model 2000 does not have the ability to change function during a scan

REM sequence. The cold junction reference channels is read only one time (at the start of the control loop).

REM Equipment

REM 1. Model 2000 DMM

REM  2. Model 2001TCSCAN card

REM 3. Microsoft QuickBasic 4.5

REM 4. 80486-66MHz computer

REM 5. KPC-488.2AT GPIB interface

' $INCLUDE: 'C:\CEC\IEEEQB.BI'                                      'Include library

CALL initialize(21, 0)                                                      'System controller

data$ = SPACE$(25)                                                          'Space for data

CLS                                                                             'Clear screen

CALL send(16, "*RST", gpib.status%)                         'Clear Model 2000

CALL send(16, ":INIT:CONT OFF;:ABORT", gpib.status%)    'Init off

CALL send(16, ":TRIG:COUN 1", gpib.status%)             'Trigger count = 1

CALL send(16, ":SAMP:COUN 1", gpib.status%)             'Sample count = 1

CALL send(16, ":FORM:ELEM READ", gpib.status%)          'Readings only

CALL send(16, ":SENS:FUNC 'TEMP'", gpib.status%)        'Set to temperature

CALL send(16, ":SENS:TEMP:NPLC 0.1", gpib.status%)      'Fast readings

CALL send(16, ":SENS:TEMP:TC:TYPE K", gpib.status%) 'TC = type K

CALL send(16, ":SENS:TEMP:TC:RJUN:RSEL REAL", gpib.status%)

CALL send(16, ":SENS:TEMP:TC:RJUN:REAL:TCO .0002", gpib.status%)

CALL send(16, ":SENS:TEMP:TC:RJUN:REAL:OFFS .05463", gpib.status%)                                                  'Offset = 54.63mV

CALL send(16, ":SENS:FUNC 'RES'", gpib.status%)         'Set resistance

CALL send(16, ":SENS:RES:NPLC 0.1", gpib.status%)       'Fast readings

CALL send(16, ":SENS:RES:RANG 2000", gpib.status%)  '2k range

CALL send(16, ":SENS:FUNC 'TEMP'", gpib.status%)        'Temperature

CALL send(7, ":ROUT:CLOSE (@1!1)", gpib.status%)      'Close ref chan

CALL send(16, ":READ?", gpib.status%)               'read cold junction ref

CALL enter(data$, l%, 16, status%)                               'Address 2000 to talk

PRINT data$                                                             'Display reading

CALL send(7, ":ROUT:OPEN ALL", gpib.status%)       'Open all chans



REM                                         Page 2

FOR I = 1 TO 5

	CALL send(16, ":SENS:FUNC 'TEMP'", gpib.status%)    'Temperature

	FOR TEMP = 2 TO 6

		TEMP$ = STR$(TEMP)

		CALL send(7, ":ROUT:CLOS (@1!" + TEMP$ + ")", gpib.status%)

		CALL send(7, "*OPC", gpib.status%)             'Wait for completion

		CALL send(16, ":READ?", gpib.status%)              'Read query

		CALL enter(data$, l%, 16, status%)                          'Address 2000 to talk

		PRINT data$                                                     'Display reading

		CALL send(7, ":ROUT:OPEN ALL", gpib.status%)       'Open all chans

	NEXT TEMP

	CALL send(16, ":SENS:FUNC 'RES'", gpib.status%)     'Set resistance

	FOR RES = 7 TO 8

		RES$ = STR$(RES)

		CALL send(7, ":ROUT:CLOS (1!@" + RES$ + ")", gpib.status%)

		CALL send(7, "*OPC", gpib.status%)             'Wait for completion

		CALL send(16, ":READ?", gpib.status%)              'Read query

		CALL enter(data$, l%, 16, status%)                          'Address 2000 to talk

		PRINT data$                                                     'Display reading

		CALL send(7, ":ROUT:OPEN ALL", gpib.status%)       'Open all chans

	NEXT RES

NEXT I

END